
{*************************************************************************************************************}
{                                                                                                             }
{                                              XML Data Binding                                               }
{                                                                                                             }
{         Generated on: 2014/5/8 3:28:21                                                                      }
{       Generated from: C:\CCRISE\DELPHI\netparse0402\netparse\MtMineGenerateMon\GenerateXMLObjectModel.xml   }
{   Settings stored in: C:\CCRISE\DELPHI\netparse0402\netparse\MtMineGenerateMon\GenerateXMLObjectModel.xdb   }
{                                                                                                             }
{*************************************************************************************************************}

unit untGenerateXMLObjectModel;

interface

uses xmldom, XMLDoc, XMLIntf;

type

{ Forward Decls }

  IXMLDatasType = interface;
  IXMLCurrentDatasType = interface;
  IXMLCurrentDataType = interface;
  IXMLCoalMinesType = interface;
  IXMLCoalMineType = interface;
  IXMLSensorsType = interface;
  IXMLSensorType = interface;

{ IXMLDatasType }

  IXMLDatasType = interface(IXMLNode)
    ['{9B01220D-1BE1-464C-9379-553962BB749B}']
    { Property Accessors }
    function Get_CurrentDatas: IXMLCurrentDatasType;
    function Get_CoalMines: IXMLCoalMinesType;
    function Get_Sensors: IXMLSensorsType;
    { Methods & Properties }
    property CurrentDatas: IXMLCurrentDatasType read Get_CurrentDatas;
    property CoalMines: IXMLCoalMinesType read Get_CoalMines;
    property Sensors: IXMLSensorsType read Get_Sensors;
  end;

{ IXMLCurrentDatasType }

  IXMLCurrentDatasType = interface(IXMLNodeCollection)
    ['{58C0822F-7A3A-41DF-B4A0-8285A522D187}']
    { Property Accessors }
    function Get_CurrentData(Index: Integer): IXMLCurrentDataType;
    { Methods & Properties }
    function Add: IXMLCurrentDataType;
    function Insert(const Index: Integer): IXMLCurrentDataType;
    property CurrentData[Index: Integer]: IXMLCurrentDataType read Get_CurrentData; default;
  end;

{ IXMLCurrentDataType }

  IXMLCurrentDataType = interface(IXMLNode)
    ['{B99513DF-C881-4638-9B80-9E58AE670342}']
    { Property Accessors }
    function Get_Data: UnicodeString;
    function Get_Time: UnicodeString;
    function Get_TroubleType: UnicodeString;
    function Get_Sensor: UnicodeString;
    function Get_CoalId: UnicodeString;
    procedure Set_Data(Value: UnicodeString);
    procedure Set_Time(Value: UnicodeString);
    procedure Set_TroubleType(Value: UnicodeString);
    procedure Set_Sensor(Value: UnicodeString);
    procedure Set_CoalId(Value: UnicodeString);
    { Methods & Properties }
    property Data: UnicodeString read Get_Data write Set_Data;
    property Time: UnicodeString read Get_Time write Set_Time;
    property TroubleType: UnicodeString read Get_TroubleType write Set_TroubleType;
    property Sensor: UnicodeString read Get_Sensor write Set_Sensor;
    property CoalId: UnicodeString read Get_CoalId write Set_CoalId;
  end;

{ IXMLCoalMinesType }

  IXMLCoalMinesType = interface(IXMLNodeCollection)
    ['{32A847F1-695A-4A44-B34C-A82002BECBA7}']
    { Property Accessors }
    function Get_CoalMine(Index: Integer): IXMLCoalMineType;
    { Methods & Properties }
    function Add: IXMLCoalMineType;
    function Insert(const Index: Integer): IXMLCoalMineType;
    property CoalMine[Index: Integer]: IXMLCoalMineType read Get_CoalMine; default;
  end;

{ IXMLCoalMineType }

  IXMLCoalMineType = interface(IXMLNode)
    ['{792D235F-31E3-448D-85B2-BB70C27EC807}']
    { Property Accessors }
    function Get_CardId: UnicodeString;
    function Get_Name: UnicodeString;
    function Get_Location: UnicodeString;
    function Get_Principal: UnicodeString;
    function Get_PrincipalTel: UnicodeString;
    function Get_InspectTel: UnicodeString;
    function Get_IpTel: UnicodeString;
    function Get_ProduceState: UnicodeString;
    function Get_Org: UnicodeString;
    procedure Set_CardId(Value: UnicodeString);
    procedure Set_Name(Value: UnicodeString);
    procedure Set_Location(Value: UnicodeString);
    procedure Set_Principal(Value: UnicodeString);
    procedure Set_PrincipalTel(Value: UnicodeString);
    procedure Set_InspectTel(Value: UnicodeString);
    procedure Set_IpTel(Value: UnicodeString);
    procedure Set_ProduceState(Value: UnicodeString);
    procedure Set_Org(Value: UnicodeString);
    { Methods & Properties }
    property CardId: UnicodeString read Get_CardId write Set_CardId;
    property Name: UnicodeString read Get_Name write Set_Name;
    property Location: UnicodeString read Get_Location write Set_Location;
    property Principal: UnicodeString read Get_Principal write Set_Principal;
    property PrincipalTel: UnicodeString read Get_PrincipalTel write Set_PrincipalTel;
    property InspectTel: UnicodeString read Get_InspectTel write Set_InspectTel;
    property IpTel: UnicodeString read Get_IpTel write Set_IpTel;
    property ProduceState: UnicodeString read Get_ProduceState write Set_ProduceState;
    property Org: UnicodeString read Get_Org write Set_Org;
  end;

{ IXMLSensorsType }

  IXMLSensorsType = interface(IXMLNodeCollection)
    ['{40066D44-0BBD-4376-A617-38460246EA5D}']
    { Property Accessors }
    function Get_Sensor(Index: Integer): IXMLSensorType;
    { Methods & Properties }
    function Add: IXMLSensorType;
    function Insert(const Index: Integer): IXMLSensorType;
    property Sensor[Index: Integer]: IXMLSensorType read Get_Sensor; default;
  end;

{ IXMLSensorType }

  IXMLSensorType = interface(IXMLNode)
    ['{6CED37EF-366B-4510-892B-DDE11D58ED79}']
    { Property Accessors }
    function Get_Id: UnicodeString;
    function Get_DataType: UnicodeString;
    function Get_SenorType: UnicodeString;
    function Get_Location: UnicodeString;
    function Get_Unit_: UnicodeString;
    function Get_CapacityDown: UnicodeString;
    function Get_CapacityUp: UnicodeString;
    function Get_AlarmDown: UnicodeString;
    function Get_AlarmUp: UnicodeString;
    function Get_BreakEle: UnicodeString;
    function Get_AgainEle: UnicodeString;
    function Get_BurstEle: UnicodeString;
    function Get_CoalId: UnicodeString;
    procedure Set_Id(Value: UnicodeString);
    procedure Set_DataType(Value: UnicodeString);
    procedure Set_SenorType(Value: UnicodeString);
    procedure Set_Location(Value: UnicodeString);
    procedure Set_Unit_(Value: UnicodeString);
    procedure Set_CapacityDown(Value: UnicodeString);
    procedure Set_CapacityUp(Value: UnicodeString);
    procedure Set_AlarmDown(Value: UnicodeString);
    procedure Set_AlarmUp(Value: UnicodeString);
    procedure Set_BreakEle(Value: UnicodeString);
    procedure Set_AgainEle(Value: UnicodeString);
    procedure Set_BurstEle(Value: UnicodeString);
    procedure Set_CoalId(Value: UnicodeString);
    { Methods & Properties }
    property Id: UnicodeString read Get_Id write Set_Id;
    property DataType: UnicodeString read Get_DataType write Set_DataType;
    property SenorType: UnicodeString read Get_SenorType write Set_SenorType;
    property Location: UnicodeString read Get_Location write Set_Location;
    property Unit_: UnicodeString read Get_Unit_ write Set_Unit_;
    property CapacityDown: UnicodeString read Get_CapacityDown write Set_CapacityDown;
    property CapacityUp: UnicodeString read Get_CapacityUp write Set_CapacityUp;
    property AlarmDown: UnicodeString read Get_AlarmDown write Set_AlarmDown;
    property AlarmUp: UnicodeString read Get_AlarmUp write Set_AlarmUp;
    property BreakEle: UnicodeString read Get_BreakEle write Set_BreakEle;
    property AgainEle: UnicodeString read Get_AgainEle write Set_AgainEle;
    property BurstEle: UnicodeString read Get_BurstEle write Set_BurstEle;
    property CoalId: UnicodeString read Get_CoalId write Set_CoalId;
  end;

{ Forward Decls }

  TXMLDatasType = class;
  TXMLCurrentDatasType = class;
  TXMLCurrentDataType = class;
  TXMLCoalMinesType = class;
  TXMLCoalMineType = class;
  TXMLSensorsType = class;
  TXMLSensorType = class;

{ TXMLDatasType }

  TXMLDatasType = class(TXMLNode, IXMLDatasType)
  protected
    { IXMLDatasType }
    function Get_CurrentDatas: IXMLCurrentDatasType;
    function Get_CoalMines: IXMLCoalMinesType;
    function Get_Sensors: IXMLSensorsType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLCurrentDatasType }

  TXMLCurrentDatasType = class(TXMLNodeCollection, IXMLCurrentDatasType)
  protected
    { IXMLCurrentDatasType }
    function Get_CurrentData(Index: Integer): IXMLCurrentDataType;
    function Add: IXMLCurrentDataType;
    function Insert(const Index: Integer): IXMLCurrentDataType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLCurrentDataType }

  TXMLCurrentDataType = class(TXMLNode, IXMLCurrentDataType)
  protected
    { IXMLCurrentDataType }
    function Get_Data: UnicodeString;
    function Get_Time: UnicodeString;
    function Get_TroubleType: UnicodeString;
    function Get_Sensor: UnicodeString;
    function Get_CoalId: UnicodeString;
    procedure Set_Data(Value: UnicodeString);
    procedure Set_Time(Value: UnicodeString);
    procedure Set_TroubleType(Value: UnicodeString);
    procedure Set_Sensor(Value: UnicodeString);
    procedure Set_CoalId(Value: UnicodeString);
  end;

{ TXMLCoalMinesType }

  TXMLCoalMinesType = class(TXMLNodeCollection, IXMLCoalMinesType)
  protected
    { IXMLCoalMinesType }
    function Get_CoalMine(Index: Integer): IXMLCoalMineType;
    function Add: IXMLCoalMineType;
    function Insert(const Index: Integer): IXMLCoalMineType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLCoalMineType }

  TXMLCoalMineType = class(TXMLNode, IXMLCoalMineType)
  protected
    { IXMLCoalMineType }
    function Get_CardId: UnicodeString;
    function Get_Name: UnicodeString;
    function Get_Location: UnicodeString;
    function Get_Principal: UnicodeString;
    function Get_PrincipalTel: UnicodeString;
    function Get_InspectTel: UnicodeString;
    function Get_IpTel: UnicodeString;
    function Get_ProduceState: UnicodeString;
    function Get_Org: UnicodeString;
    procedure Set_CardId(Value: UnicodeString);
    procedure Set_Name(Value: UnicodeString);
    procedure Set_Location(Value: UnicodeString);
    procedure Set_Principal(Value: UnicodeString);
    procedure Set_PrincipalTel(Value: UnicodeString);
    procedure Set_InspectTel(Value: UnicodeString);
    procedure Set_IpTel(Value: UnicodeString);
    procedure Set_ProduceState(Value: UnicodeString);
    procedure Set_Org(Value: UnicodeString);
  end;

{ TXMLSensorsType }

  TXMLSensorsType = class(TXMLNodeCollection, IXMLSensorsType)
  protected
    { IXMLSensorsType }
    function Get_Sensor(Index: Integer): IXMLSensorType;
    function Add: IXMLSensorType;
    function Insert(const Index: Integer): IXMLSensorType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLSensorType }

  TXMLSensorType = class(TXMLNode, IXMLSensorType)
  protected
    { IXMLSensorType }
    function Get_Id: UnicodeString;
    function Get_DataType: UnicodeString;
    function Get_SenorType: UnicodeString;
    function Get_Location: UnicodeString;
    function Get_Unit_: UnicodeString;
    function Get_CapacityDown: UnicodeString;
    function Get_CapacityUp: UnicodeString;
    function Get_AlarmDown: UnicodeString;
    function Get_AlarmUp: UnicodeString;
    function Get_BreakEle: UnicodeString;
    function Get_AgainEle: UnicodeString;
    function Get_BurstEle: UnicodeString;
    function Get_CoalId: UnicodeString;
    procedure Set_Id(Value: UnicodeString);
    procedure Set_DataType(Value: UnicodeString);
    procedure Set_SenorType(Value: UnicodeString);
    procedure Set_Location(Value: UnicodeString);
    procedure Set_Unit_(Value: UnicodeString);
    procedure Set_CapacityDown(Value: UnicodeString);
    procedure Set_CapacityUp(Value: UnicodeString);
    procedure Set_AlarmDown(Value: UnicodeString);
    procedure Set_AlarmUp(Value: UnicodeString);
    procedure Set_BreakEle(Value: UnicodeString);
    procedure Set_AgainEle(Value: UnicodeString);
    procedure Set_BurstEle(Value: UnicodeString);
    procedure Set_CoalId(Value: UnicodeString);
  end;

{ Global Functions }

function GetDatas(Doc: IXMLDocument): IXMLDatasType;
function LoadDatas(const FileName: string): IXMLDatasType;
function NewDatas: IXMLDatasType;

const
  TargetNamespace = '';

implementation

{ Global Functions }

function GetDatas(Doc: IXMLDocument): IXMLDatasType;
begin
  Result := Doc.GetDocBinding('Datas', TXMLDatasType, TargetNamespace) as IXMLDatasType;
end;

function LoadDatas(const FileName: string): IXMLDatasType;
begin
  Result := LoadXMLDocument(FileName).GetDocBinding('Datas', TXMLDatasType, TargetNamespace) as IXMLDatasType;
end;

function NewDatas: IXMLDatasType;
begin
  Result := NewXMLDocument.GetDocBinding('Datas', TXMLDatasType, TargetNamespace) as IXMLDatasType;
end;

{ TXMLDatasType }

procedure TXMLDatasType.AfterConstruction;
begin
  RegisterChildNode('CurrentDatas', TXMLCurrentDatasType);
  RegisterChildNode('CoalMines', TXMLCoalMinesType);
  RegisterChildNode('Sensors', TXMLSensorsType);
  inherited;
end;

function TXMLDatasType.Get_CurrentDatas: IXMLCurrentDatasType;
begin
  Result := ChildNodes['CurrentDatas'] as IXMLCurrentDatasType;
end;

function TXMLDatasType.Get_CoalMines: IXMLCoalMinesType;
begin
  Result := ChildNodes['CoalMines'] as IXMLCoalMinesType;
end;

function TXMLDatasType.Get_Sensors: IXMLSensorsType;
begin
  Result := ChildNodes['Sensors'] as IXMLSensorsType;
end;

{ TXMLCurrentDatasType }

procedure TXMLCurrentDatasType.AfterConstruction;
begin
  RegisterChildNode('CurrentData', TXMLCurrentDataType);
  ItemTag := 'CurrentData';
  ItemInterface := IXMLCurrentDataType;
  inherited;
end;

function TXMLCurrentDatasType.Get_CurrentData(Index: Integer): IXMLCurrentDataType;
begin
  Result := List[Index] as IXMLCurrentDataType;
end;

function TXMLCurrentDatasType.Add: IXMLCurrentDataType;
begin
  Result := AddItem(-1) as IXMLCurrentDataType;
end;

function TXMLCurrentDatasType.Insert(const Index: Integer): IXMLCurrentDataType;
begin
  Result := AddItem(Index) as IXMLCurrentDataType;
end;

{ TXMLCurrentDataType }

function TXMLCurrentDataType.Get_Data: UnicodeString;
begin
  Result := ChildNodes['data'].Text;
end;

procedure TXMLCurrentDataType.Set_Data(Value: UnicodeString);
begin
  ChildNodes['data'].NodeValue := Value;
end;

function TXMLCurrentDataType.Get_Time: UnicodeString;
begin
  Result := ChildNodes['time'].Text;
end;

procedure TXMLCurrentDataType.Set_Time(Value: UnicodeString);
begin
  ChildNodes['time'].NodeValue := Value;
end;

function TXMLCurrentDataType.Get_TroubleType: UnicodeString;
begin
  Result := ChildNodes['troubleType'].Text;
end;

procedure TXMLCurrentDataType.Set_TroubleType(Value: UnicodeString);
begin
  ChildNodes['troubleType'].NodeValue := Value;
end;

function TXMLCurrentDataType.Get_Sensor: UnicodeString;
begin
  Result := ChildNodes['sensor'].Text;
end;

procedure TXMLCurrentDataType.Set_Sensor(Value: UnicodeString);
begin
  ChildNodes['sensor'].NodeValue := Value;
end;

function TXMLCurrentDataType.Get_CoalId: UnicodeString;
begin
  Result := ChildNodes['coalId'].Text;
end;

procedure TXMLCurrentDataType.Set_CoalId(Value: UnicodeString);
begin
  ChildNodes['coalId'].NodeValue := Value;
end;

{ TXMLCoalMinesType }

procedure TXMLCoalMinesType.AfterConstruction;
begin
  RegisterChildNode('CoalMine', TXMLCoalMineType);
  ItemTag := 'CoalMine';
  ItemInterface := IXMLCoalMineType;
  inherited;
end;

function TXMLCoalMinesType.Get_CoalMine(Index: Integer): IXMLCoalMineType;
begin
  Result := List[Index] as IXMLCoalMineType;
end;

function TXMLCoalMinesType.Add: IXMLCoalMineType;
begin
  Result := AddItem(-1) as IXMLCoalMineType;
end;

function TXMLCoalMinesType.Insert(const Index: Integer): IXMLCoalMineType;
begin
  Result := AddItem(Index) as IXMLCoalMineType;
end;

{ TXMLCoalMineType }

function TXMLCoalMineType.Get_CardId: UnicodeString;
begin
  Result := ChildNodes['cardId'].Text;
end;

procedure TXMLCoalMineType.Set_CardId(Value: UnicodeString);
begin
  ChildNodes['cardId'].NodeValue := Value;
end;

function TXMLCoalMineType.Get_Name: UnicodeString;
begin
  Result := ChildNodes['name'].Text;
end;

procedure TXMLCoalMineType.Set_Name(Value: UnicodeString);
begin
  ChildNodes['name'].NodeValue := Value;
end;

function TXMLCoalMineType.Get_Location: UnicodeString;
begin
  Result := ChildNodes['location'].Text;
end;

procedure TXMLCoalMineType.Set_Location(Value: UnicodeString);
begin
  ChildNodes['location'].NodeValue := Value;
end;

function TXMLCoalMineType.Get_Principal: UnicodeString;
begin
  Result := ChildNodes['principal'].Text;
end;

procedure TXMLCoalMineType.Set_Principal(Value: UnicodeString);
begin
  ChildNodes['principal'].NodeValue := Value;
end;

function TXMLCoalMineType.Get_PrincipalTel: UnicodeString;
begin
  Result := ChildNodes['principalTel'].Text;
end;

procedure TXMLCoalMineType.Set_PrincipalTel(Value: UnicodeString);
begin
  ChildNodes['principalTel'].NodeValue := Value;
end;

function TXMLCoalMineType.Get_InspectTel: UnicodeString;
begin
  Result := ChildNodes['inspectTel'].Text;
end;

procedure TXMLCoalMineType.Set_InspectTel(Value: UnicodeString);
begin
  ChildNodes['inspectTel'].NodeValue := Value;
end;

function TXMLCoalMineType.Get_IpTel: UnicodeString;
begin
  Result := ChildNodes['ipTel'].Text;
end;

procedure TXMLCoalMineType.Set_IpTel(Value: UnicodeString);
begin
  ChildNodes['ipTel'].NodeValue := Value;
end;

function TXMLCoalMineType.Get_ProduceState: UnicodeString;
begin
  Result := ChildNodes['produceState'].Text;
end;

procedure TXMLCoalMineType.Set_ProduceState(Value: UnicodeString);
begin
  ChildNodes['produceState'].NodeValue := Value;
end;

function TXMLCoalMineType.Get_Org: UnicodeString;
begin
  Result := ChildNodes['org'].Text;
end;

procedure TXMLCoalMineType.Set_Org(Value: UnicodeString);
begin
  ChildNodes['org'].NodeValue := Value;
end;

{ TXMLSensorsType }

procedure TXMLSensorsType.AfterConstruction;
begin
  RegisterChildNode('Sensor', TXMLSensorType);
  ItemTag := 'Sensor';
  ItemInterface := IXMLSensorType;
  inherited;
end;

function TXMLSensorsType.Get_Sensor(Index: Integer): IXMLSensorType;
begin
  Result := List[Index] as IXMLSensorType;
end;

function TXMLSensorsType.Add: IXMLSensorType;
begin
  Result := AddItem(-1) as IXMLSensorType;
end;

function TXMLSensorsType.Insert(const Index: Integer): IXMLSensorType;
begin
  Result := AddItem(Index) as IXMLSensorType;
end;

{ TXMLSensorType }

function TXMLSensorType.Get_Id: UnicodeString;
begin
  Result := ChildNodes['id'].Text;
end;

procedure TXMLSensorType.Set_Id(Value: UnicodeString);
begin
  ChildNodes['id'].NodeValue := Value;
end;

function TXMLSensorType.Get_DataType: UnicodeString;
begin
  Result := ChildNodes['dataType'].Text;
end;

procedure TXMLSensorType.Set_DataType(Value: UnicodeString);
begin
  ChildNodes['dataType'].NodeValue := Value;
end;

function TXMLSensorType.Get_SenorType: UnicodeString;
begin
  Result := ChildNodes['senorType'].Text;
end;

procedure TXMLSensorType.Set_SenorType(Value: UnicodeString);
begin
  ChildNodes['senorType'].NodeValue := Value;
end;

function TXMLSensorType.Get_Location: UnicodeString;
begin
  Result := ChildNodes['location'].Text;
end;

procedure TXMLSensorType.Set_Location(Value: UnicodeString);
begin
  ChildNodes['location'].NodeValue := Value;
end;

function TXMLSensorType.Get_Unit_: UnicodeString;
begin
  Result := ChildNodes['unit'].Text;
end;

procedure TXMLSensorType.Set_Unit_(Value: UnicodeString);
begin
  ChildNodes['unit'].NodeValue := Value;
end;

function TXMLSensorType.Get_CapacityDown: UnicodeString;
begin
  Result := ChildNodes['capacityDown'].Text;
end;

procedure TXMLSensorType.Set_CapacityDown(Value: UnicodeString);
begin
  ChildNodes['capacityDown'].NodeValue := Value;
end;

function TXMLSensorType.Get_CapacityUp: UnicodeString;
begin
  Result := ChildNodes['capacityUp'].Text;
end;

procedure TXMLSensorType.Set_CapacityUp(Value: UnicodeString);
begin
  ChildNodes['capacityUp'].NodeValue := Value;
end;

function TXMLSensorType.Get_AlarmDown: UnicodeString;
begin
  Result := ChildNodes['alarmDown'].Text;
end;

procedure TXMLSensorType.Set_AlarmDown(Value: UnicodeString);
begin
  ChildNodes['alarmDown'].NodeValue := Value;
end;

function TXMLSensorType.Get_AlarmUp: UnicodeString;
begin
  Result := ChildNodes['alarmUp'].Text;
end;

procedure TXMLSensorType.Set_AlarmUp(Value: UnicodeString);
begin
  ChildNodes['alarmUp'].NodeValue := Value;
end;

function TXMLSensorType.Get_BreakEle: UnicodeString;
begin
  Result := ChildNodes['breakEle'].Text;
end;

procedure TXMLSensorType.Set_BreakEle(Value: UnicodeString);
begin
  ChildNodes['breakEle'].NodeValue := Value;
end;

function TXMLSensorType.Get_AgainEle: UnicodeString;
begin
  Result := ChildNodes['againEle'].Text;
end;

procedure TXMLSensorType.Set_AgainEle(Value: UnicodeString);
begin
  ChildNodes['againEle'].NodeValue := Value;
end;

function TXMLSensorType.Get_BurstEle: UnicodeString;
begin
  Result := ChildNodes['burstEle'].Text;
end;

procedure TXMLSensorType.Set_BurstEle(Value: UnicodeString);
begin
  ChildNodes['burstEle'].NodeValue := Value;
end;

function TXMLSensorType.Get_CoalId: UnicodeString;
begin
  Result := ChildNodes['coalId'].Text;
end;

procedure TXMLSensorType.Set_CoalId(Value: UnicodeString);
begin
  ChildNodes['coalId'].NodeValue := Value;
end;

end.